Top 10k strings from Redcoats (1984)(MC Lothlorien).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [Z80] /
Back to the directory listing
5 ;"Action";
5 *(l$(y,x+1
3 a$;" ";sv'
2 ;"Enemy unit wiped out":
2 ;"Enemy unit routed":
2 )+dist*2.1
2 (cas*diff)
2 "name of battle ? ";
1 tay in cover
1 see which units are in cover
1 save battle to tape
1 save battle
1 q$="Save to MICRODRIVE #1":
1 q$="Load from MICRODRIVE #1":
1 q$="Is this correct":
1 q$="Do you wish to transfer the
1 max+"),0,"+
1 map last (23=title
1 l$(a,b)=" ":
1 initialise
1 in;("British "
1 in;"S:";t(i,3
1 dist<mr*1.6
1 dir=dir-.2
1 deployment agency
1 d>range*range*2
1 computers move
1 change units
1 change title
1 change deployment
1 b$="British":
1 b$="American":
1 a$="reinforcements on move number,1,50":
1 a$="mlfurn?cq":
1 a$="ltmudsp":
1 a$="acmr":
1 a$="The British have won":
1 a$="The Americans have won"
1 a$="Strength,1,10000":
1 a$="Reinforcements on move number,1,50":
1 a$="Morale value,10,100":
1 a$="Morale Threshold,1,"+
1 a$="How many British units,1,8":
1 a$="How many American units,1,8":
1 a$="Distance (0-"+
1 a$="Direction (0-12),0,12":
1 ;s$+".l$":
1 ;cas;" men killed":
1 ;cas;" men killed"
1 ;B$;" unit ";i:
1 ;(q$+" ?")
1 ;(a$);" ? ";
1 ;"Units MUST be defined first":
1 ;"Unit name ";
1 ;"Unit Routed
1 ;"Unit Definition";
1 ;"U unlimber";
1 ;"Type (M,R,C,A) ? "
1 ;"Too low:min=";mi:
1 ;"Too long.Max length=20":
1 ;"Too high:max=";ma:
1 ;"Title definition"
1 ;"The Battle of":
1 ;"Select option ";
1 ;"Score ";:
1 ;"Rewind tape to start of data. Connect ear to ear,press play"
1 ;"Reinforcements Arrive":
1 ;"Redcode"
1 ;"Redcoats"
1 ;"RELOAD":
1 ;"R reload";
1 ;"Q Quit";
1 ;"Press ~ENTER~ to start again"
1 ;"Position tape at a blank part or a part that you do not mind overwriting."'" Make sure that the mic lead of the cassette is connected to that of the computer"
1 ;"Numeric input please":
1 ;"Not limbered":
1 ;"Need to reload":
1 ;"NOTHING"
1 ;"N nothing":
1 ;"Morale too low to charge":
1 ;"Map MUST be defined first":
1 ;"MOVE ":
1 ;"M move";
1 ;"L limber";
1 ;"Is that correct ? ";
1 ;"Is that O.K. ?":
1 ;"Is that O.K. ? ":
1 ;"INVALID (not artillery)":
1 ;"How many human players ";:
1 ;"Guns not unlimbered":
1 ;"Guns Not limbered":
1 ;"Full name":
1 ;"Filename (for cassette)":
1 ;"FIRE ":
1 ;"F fire";
1 ;"Do You want to be (B)ritish or
1 ;"Difficulty (0-9) ? ";
1 ;"Cavalry cannot fire":
1 ;"Cannot reload when limbered":
1 ;"CHARGE":
1 ;"C charge";
1 ;"British unit ";i'l$(24
1 ;"British casualties ";sa
1 ;"Battle of ";l$(23
1 ;"BEWARE if you answer ""y"" to
1 ;"Artillery cannot charge":
1 ;"American unit ";i'l$(24
1 ;"American casualties ";sb;
1 ;"Already loaded":
1 ;"Actions are:-";
1 ;"** STOP THE TAPE **":
1 ---tests---
1 *(((i$="8"
1 *(((i$="7"
1 *"m";w;"Redcode"
1 );("American "
1 );") ":
1 );" M:";t(i,4
1 )...Save battle to tape"'
1 )...Play the game"
1 )...Load battle from tape"''
1 )...Change units"'
1 )...Change title"'
1 )...Change map"'
1 )...Change deployment"'
1 )-((i$="6"
1 )-((i$="5"
1 ));"ACMR"(t(i,7
1 ));" ";l$(24
1 )'"Is ready to play":
1 (uset*mset*dset)
1 (mset*uset*dset)
1 ''''"The Battle of "'l$(23
1 ''"The battle names on this tape"'"are :-"
1 "invalid prompt":
1 "Units not defined":
1 "Units must be deployed first":
1 "Units must be defined first":
1 "Type ";i$:
1 "Troops not deployed":
1 "Searching for ";"""";s$;"""";" on Microdrive #1":
1 "Searching for ";"""";s$;""""''"Found:-"
1 "Map not defined":
1 "Map must be defined first":
1 "Freemans"'"Camden"'"Cowpens"'"Guildford"'"Eutaw"
1 "Battle names must be entered"'"EXACTLY as they are on the tape"
1 "19","1a","0c","1c","18","18","08","18"
1 "18","18","0c","fe","1c","18","08","18"
1 "08","0f","0c","fc","fc","84","84","84"
1 "00","28","54","10","54","10","10","28","128","128","128","128","128","128","128","ff","ff","128","128","128","128","128","128","128","ff","01","01","01","01","01","01","01","01","01","01","01","01","01","01","ff","00","00","00","00","00","00","00","ff","ff","00","00","00","00","00","00","00","128","128","128","128","128","128","128","128","01","01","01","01","01","01","01","01"
1 "00","00","1f","3f","78","f8","00","00"
1 ");l$(y,x+1
1 the following question, the
1 program will be saved, BUT the battle will NOT!!":
1 program to MICRODRIVE #1":
1 (A)merican ";